home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CURSORS IPS™.cpt / CURSORS IPS™ / card_3051.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  89 lines
  1. -- card: 3051 from stack: in
  2. -- bmap block id: 2268
  3. -- flags: 0000
  4. -- background id: 2694
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   send idle to card button "STM"
  9.   -- send idle to card button "inversion"
  10.   pass idle
  11. end idle
  12.  
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=457 top=306 right=342 bottom=504
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 24938 / 24938
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: STM
  27. ----- HyperTalk script -----
  28. on mouseDown
  29.   Play "boing" a3. c4w
  30. end mouseDown
  31.  
  32. on idle
  33.   global beanieCounter
  34.   hide background button home
  35.   show background button demo
  36.   add 1 to beanieCounter
  37.   if beanieCounter > 4 then put 1 into beanieCounter
  38.   set icon of me to ("Andrea" && beanieCounter)
  39.   show background button home
  40.   hide background button demo
  41. end idle
  42.  
  43.  
  44. -- part 2 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=451 top=64 right=113 bottom=509
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: 
  56. ----- HyperTalk script -----
  57.  
  58. on mouseUp
  59.   edit script of background button demo
  60.   set cursor to 4
  61.   wait 60
  62.   play flute
  63.   set cursor to cross
  64.   wait 60
  65.   set cursor to help
  66.   wait 60
  67.   repeat 7
  68.     set cursor to 19999
  69.     wait 10
  70.     set cursor to 1011
  71.     wait 10
  72.   end repeat
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 3 (button)
  78. -- low flags: 80
  79. -- high flags: 0000
  80. -- rect: left=392 top=73 right=103 bottom=435
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 257 / 257
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: bug
  89.